COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\input basic
C00015 ENDMK
C⊗;
\input basic
\magnify{1200}	

\ctrline{To err is human, but,}
\ctrline{to really foul things up}
\ctrline{requires a computer}
\ctrline{--}
\ctrline{An all-too-powerful tool}
\ctrline{in the hands of}
\ctrline{an all-too-fallible person}
\par\vfill

\ctrline{The Future}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Self-steering cars\cr
Automatic factories\cr
Speech recognition\cr
Language translation\cr
Direct access libraries\cr
The automated home\cr}}$$
\par\vfill\eject
\end

$$\vbox{\halign{#\hfill\cr
program YIELD(OUTPUT);\cr
var  BRACKET,YIELD : integer;\cr
begin\cr
writeln('Current   Tax');\cr
writeln('yield   bracket');\cr
for YIELD:=13 to 30 do\cr
begin\cr
BRACKET :=100 -- (1260 div YIELD);\cr
if BRACKET <= 50 then writeln(YIELD:3,BRACKET:9);\cr
end;\cr
end.\cr}}$$
\par\vfill

\vskip -3pt
$$\vbox{\halign{\hfill#\hfill⊗\quad \hfill#\hfill \cr
CURRENT⊗TAX\cr
YIELD⊗BRACKET\cr
13⊗4\cr
14⊗10\cr
15⊗16\cr
16⊗22\cr
17⊗26\cr
18⊗30\cr
19⊗34\cr
20⊗37\cr
21⊗40\cr
22⊗43\cr
23⊗46\cr
24⊗48\cr
25⊗50\cr}}$$
\par\vfill\eject

\ctrline{Using Other's  Programs}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Operating-System\cr
\quad Terminal-monitor Program\cr
\quad Time sharing Program\cr
\quad File management Program\cr
The text editor Program\cr
The compiler Program\cr}}$$
\par\vfill

\ctrline{Steps in Writing a Program}
\vskip -3pt
$$\vbox{\halign{#\quad \hfill⊗#\hfill\cr
Log-in, give password⊗L/ALS<cr>\cr
Start editor program⊗CET<cr>\cr
Open a file⊗YIELD.PAS<cr>\cr
Type the program\cr
Save the program file⊗<cont>E<cr>\cr
Log-off⊗K<cr>\cr}}$$
\par\vfill

\ctrline{Steps in Writing a Program}
\vskip -3pt
$$\vbox{\halign{#\qquad \hfill⊗#\hfill\cr
Log-in, give password⊗L/ALS<cr>\cr
Start editor program⊗CET<cr>\cr
Open a file⊗YIELD.PAS<cr>\cr
Type the program\cr
Save the program file⊗<cont>E<cr>\cr
Log-off⊗K<cr>\cr}}$$
\par\vfill\eject

\ctrline{Why we need computers}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
People are too slow\cr
People make mistakes\cr
People are too expensive\cr
Not enough people\cr}}$$

\par\vfill

\ctrline{Problems in using computers}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Wrong input data\cr
No human perception\cr
Rigid behavior\cr
Fraud protection\cr}}$$

\par\vfill
\eject

\ctrline{How computers are being used}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Accounting\cr
Scientific problem solving\cr
Process control\cr
Information retrieval\cr}}$$

\par\vfill
\eject

\ctrline{How computers will be used}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Tele-typed messages\cr
Personal computing\cr
Ordering merchandise\cr
Paying bills\cr
Personal newspapers\cr}}$$

\par\vfill

$$\vbox{\halign{#\hfill⊗\quad #\hfill\cr
Assume $\$$100 invested\cr
Income in dollars will be⊗INCOME = 100 $\times$ yield\cr
Uncle Sam gets⊗bracket $\times$ yield $\times$ 100\cr
You keep⊗KEEP = 100 $\times$ (1 -- bracket) $\times$ yield\cr
In ALL-SAVERS⊗KEEP = 12.6\cr
Break-even point⊗12.6 = 100 $\times$ (1 -- bracket) $\times$ yield\cr
Or⊗bracket =1 -- (12.6 div yield div 100)\cr
Expressed in percent⊗BRACKET = 100 -- (1260 div YIELD)\cr}}$$
\par\vfill

\ctrline{A computer is No}
\ctrline{substitute for Thought}
\par\vfill

$$\vbox{\halign{#\hfill\cr
Program YIELD(OUTPUT);\cr
var  BRACKET,YIELD : integer;\cr
begin\cr
BRACKET := 100 --(1260 div YIELD);\cr
end.\cr}}$$
\par\vfill\eject

\ctrline{ZERODIVIDE AT USER PC 400020}
\ \par
\ctrline{Think Harder}
\ctrline{When You Use a Computer}
\par\vfill



ctrline{Digital Computers Revisited}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
A bit of history\cr
Computers vs. calculators\cr
The mechanics of a computer\cr
How to program a computer\cr
Computers in your future\cr}}$$
\par\vfill

\ctrline{A Bit of History}
\vskip -3pt
$$\vbox{\halign{#\ \ \hfill⊗#\hfill\cr
1000 B.C.⊗The Abacus\cr
1642-1700 ⊗Early calculators\cr
1833⊗The Analytic Engine\cr
1939-1945⊗Early computers\cr
1950⊗First commercial computers\cr}}$$
\par\vfill

\ctrline{Necessary Parts of a Computer}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
An Arithmetic unit\cr
A memory\cr
Built-in Decision unit\cr
Input-Output mechanisms\cr}}$$
\par\vfill\eject

\ctrline{Functions assigned to the Computer}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Accept a set of instuctions in advance\cr
Accept input data\cr
Prompt the user for needed data\cr
Do the complete calculation\cr
Report the results\cr}}$$
\par\vfill

$$\vbox{\halign{#\hfill\cr
{\:q L 1/ALS} \cr
PASSWORD = \cr
Job 50    SU-AI WAITS 9.12/V  Assembled 09/09/81\cr
Wednesday    23-Sep-81    1241    64F  18C\cr
Exit\cr
. \cr}}$$
\par\vfill

$$\vbox{\halign{#\hfill\cr
.{\:q EX YIELD.PAS<cr>}\cr
Swapping to SYS:PASCAL.DMP\cr
\ \cr
PASCAL/SAIL: YIELD  [ YIELD \ ] PAGE  1..  2..\cr
\ \ 0 ERROR(S) DETECTED\cr
HIGHSEG: \ \ 0K +  107 WORD(S)
LOWSEG : \ \ 0K +   98 WORD(S)
\ \cr
RUNTIME: 00:00.109 \ ELAPSED: 00:00:00.8 \ 396 CHARS\cr
LOADING\cr
\ \cr
LOADER 2+7 PAGES\cr
EXECUTION\cr
OUTPUT  = YIELD.LST\cr
\ \cr
Exit\cr
. \cr}}$$
\par\vfill\eject

\ctrline{Steps in Using a Computer}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Analyse the problem\cr
Chose a computer language\cr
Write the program\cr
Compile the program\cr
Fix compiler-detected bugs\cr
Recompile the program\cr
Run the program\cr}}$$
\par\vfill

\ctrline{Using Other's  Programs}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Operating-system Program\cr
\quad Phone-monitor Program\cr
\quad Time sharing Program\cr
\quad File management Program\cr
The text editor Program\cr
The compiler Program\cr}}$$
\par\vfill\eject

\ctrline{Lessons to be Learned}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
The computer is no substitute for thought\cr
Think harder when you use a computer\cr
Garbage in garbage out\cr
Always using work of others\cr
People not computers make mistakes\cr}}$$
\par\vfill

\ctrline{What's Wrong when Computers Get Blamed}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Users do not understand the system\cr
Programmer did not anticipate some situations\cr
Fraud protection features inhibit changes\cr
Clerks are lazy and take easy way out\cr}}$$
\par\vfill


\ctrline{Languages I have Known}
\vskip -3pt
$$\vbox{\halign{#\ \ \hfill⊗#\qquad\hfill⊗#\ \ \hfill⊗#\hfill\cr
1954⊗FORTRAN⊗1964⊗BASIC\cr
1959⊗ALGOL⊗1964⊗PL/1\cr
1959⊗MAD⊗1965⊗APL\cr
1960⊗JOVIAL⊗1966⊗SAIL\cr
1960⊗COBAL⊗1970⊗PASCAL\cr
1961⊗NELIAC⊗1976⊗ADA\cr
1962⊗LISP⊗1979⊗VisaCalc\cr}}$$
\par\vfill\eject
\end

\ctrline{A Simple Program}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
program FIBONACCI(output);\cr
const  FIRST = 0;  SECOND = 1;  MAXCOUNT = 100;\cr
var\cr
\qquad BOX1, BOX2, BOX3, COUNT : integer;\cr
begin\cr
BOX1 := FIRST;  BOX2 := SECOND;\cr
writeln('Fibonacci Numbers');\cr
FOR COUNT := 1 to MAXCOUNT do\cr
\qquad begin\cr
\qquad BOX3 := BOX1 + BOX2;\cr
\qquad If COUNT mod 4 = 0 then writeln(BOX3)\cr
\qquad\qquad else write(BOX3);\cr
\qquad BOX1 := BOX2;  BOX2 := BOX3;\cr
\qquad end;\cr
end.\cr}}$$
\par\vfill

\ctrline{A Simple Program}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
program FIBONACCI(output);\cr
var FERTILE, TOTAL, NEWTOTAL, COUNT : integer;\cr
begin FERTILE := 0;  TOTAL := 1;\cr
FOR COUNT := 0 to 47 do\cr
\qquad begin NEWTOTAL := FERTILE + TOTAL;\cr
\qquad If COUNT mod 4 = 0 then writeln(NEWTOTAL)\cr
\qquad\qquad else write(NEWTOTAL);\cr
\qquad FERTILE := TOTAL;  TOTAL := NEWTOTAL;\cr
\qquad end; end.\cr}}$$
\par\vfill

\end

\ctrline{What You Need to Know about Computers}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
What is a computer\cr
The parts of a computer\cr
Why we need computers\cr
Problems in using computers\cr
How computers are being used\cr
How computers will be used\cr}}$$

\par\vfill
\eject

\ctrline{What is a Computer}
\vskip -3pt
$$\vbox{\halign{#\hfill\cr
Handles data\cr
Permanent files\cr
A stored program\cr
Multiplicity of steps\cr
Alternate program paths\cr}}$$

\par\vfill
\eject


\ctrline{\Tit The Parts of a Computer}
$$\vbox{\halign{#\hfill\cr
The arithmetic unit\cr
The storage unit\cr
Input-output devices\cr
The decision element\cr}}$$

\par\vfill
\eject